home *** CD-ROM | disk | FTP | other *** search
- object FrmTemplates: TFrmTemplates
- Left = 250
- Top = 205
- BorderStyle = bsDialog
- Caption = 'New document'
- ClientHeight = 207
- ClientWidth = 282
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 8
- Top = 8
- Width = 28
- Height = 32
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- end
- object Label1: TLabel
- Left = 48
- Top = 8
- Width = 129
- Height = 26
- Caption = 'Select a template to create a document from'
- WordWrap = True
- end
- object btnOK: TButton
- Left = 192
- Top = 8
- Width = 81
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 0
- end
- object btnCancel: TButton
- Left = 192
- Top = 40
- Width = 81
- Height = 25
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object btnNewFromScratch: TBitBtn
- Left = 152
- Top = 176
- Width = 123
- Height = 25
- Hint = 'Create a new document without a template'
- Caption = '&New from scratch'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = btnNewFromScratchClick
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777777777777777777700000000000777770FFFFFFFFF0777770FFFFFFFF
- F0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFF
- F0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFF0000777770FFFFFF0F
- 07777770FFFFFF00777777700000000777777777777777777777}
- end
- object lbTemplates: TListBox
- Left = 8
- Top = 72
- Width = 265
- Height = 97
- Hint = 'Select one of the templates'
- ItemHeight = 13
- ParentShowHint = False
- PopupMenu = PopUp
- ShowHint = True
- TabOrder = 3
- OnDblClick = lbTemplatesDblClick
- end
- object PopUp: TPopupMenu
- Left = 8
- Top = 176
- object CreateNewDoc: TMenuItem
- Caption = '&Create new document'
- ShortCut = 0
- OnClick = CreateNewDocClick
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Delete: TMenuItem
- Caption = '&Delete'
- ShortCut = 0
- OnClick = DeleteClick
- end
- end
- end
-